home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
prtpgm.arc
/
PRTPGMR.RPG
< prev
Wrap
Text File
|
1991-12-04
|
5KB
|
88 lines
H
H********************************************************************
H* *
H* PROGRAM ID: PRTPGMR DATE-WRITTEN: 11-17-86 *
H* WRITTEN BY: DAVID J. WORMELL *
H* Salt Lake City, Utah *
H* *
H********************************************************************
FSOURCE IF F 102 DISK
FQPRINT O F 132 OF PRINTER
E********************************************************************
E* DEFINE STANDARD ARRAYS *
E* *
E $R 80 1 SPEC RECORD *
I********************************************************************
I* DEFINE LEVEL BREAKS AND INPUT INDICATORS
I*
ISOURCE AA 01
I 1 60$ADT
I 7 120$BDT
I 13 102 $RCD
I* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
I* DEFINE DATA STRUCTURES
I* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
I DS
I 1 80 $R
I 1 5 $NUM
I 6 6 $SPEC
I 7 7 $ASTRC
I 28 32 $OPCOD
I 33 39 $D1FMT
I 40 46 $WRKST
I 60 74 $C
C* * * * * * * * * * * * * * * * * * * * * * * * * * *
C *ENTRY PLIST
C PARM BGN BGN 50
C PARM END END 50
C* * * * * * * * * * * * * * * * * * * * * * * * * * *
C* TOP OF PROGRAM
C* * * * * * * * * * * * * * * * * * * * * * * * * * *
C* PROCESS SOURCE RECORDS
C*
C BGN IFNE 0 --------------+
C BGN SETLLSOURCE <SLL> │
C END --------------+
C*
C END IFNE 0 --------------+
C END MULT 100 $END 70 │
C END --------------+
C*
C READ SOURCE 99<RE >
C*
C *IN99 DOWEQ'0' --------------+
C* │
C MOVEA$RCD $R │
C* │
C $END IFNE 0 ------------+ │
C $ADT IFGT $END ----------+ │ │
C GOTO $FINI │ │ │
C END ----------+ │ │
C END ------------+ │
C* │
C $BDT MULT 100.0001 $BDT │
C* │
C EXCPT <EXC> │
C* │
C READ SOURCE 99<RE > │
C* │
C END --------------+
C*----------------------------------------------------
C* END OF PROGRAM
C*----------------------------------------------------
C*
C $FINI TAG
C*
C SETON LR
C*
O*----------------------------------------------------
O* OUTPUT AREA FOR REPORT
O*----------------------------------------------------
OQPRINT EF 1
O $ADT 6
O $RCD 97
O $BDT Y 132
O TF2
O '*** END OF SOURCE ***'
O*----------------------------------------------------